home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / ForwardCorrected.zprx < prev    next >
Text File  |  1995-03-09  |  872b  |  39 lines
  1. /*
  2.     $VER: ForwardCorrected.zprx 1.0 (10.3.94) by Ralph Seichter
  3.     ARexx script for Zodiac's Point 3.7.
  4.  
  5.     This script is aimed to forward a message which was corrected in
  6.     the spool board into the board where it actually belongs (if you
  7.     want to keep a copy around).  I suggest you to bind this script
  8.     to an F-Key, e.g. by adding the entry
  9.  
  10.         F4:SYS:Rexxc/RX ZP:Rexx/ForwardCorrected.zprx %s
  11.  
  12.     to your "fkeys.zp" file.
  13. */
  14.  
  15. PARSE ARG zpPort
  16. ADDRESS VALUE zpPort
  17. OPTIONS RESULTS
  18.  
  19. whichlevel
  20. IF (RESULT ~= 'BOARD') THEN DO
  21.     requestnotify 'You must be inside a board!'
  22.     exit
  23. END
  24.  
  25. messageinfo receiver
  26. rcv = RESULT
  27. IF (rcv == '') THEN DO
  28.     requestnotify 'No receiver found!'
  29.     exit
  30. END
  31.  
  32. forwardmessage rcv internal
  33. IF (RC) THEN
  34.     requestnotify 'Message copied to' || '0A'X || rcv
  35. ELSE
  36.     requestnotify "Can't forward message!"
  37.  
  38. /* EOF */
  39.